home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / lalr.lha / lalr / src / Debug.md < prev    next >
Text File  |  1992-08-18  |  1KB  |  49 lines
  1. (* compute debugging information *)
  2.  
  3. (* $Id: Debug.md,v 1.3 1991/11/21 14:53:14 grosch rel $ *)
  4.  
  5. (* $Log: Debug.md,v $
  6.  * Revision 1.3  1991/11/21  14:53:14  grosch
  7.  * new version of RCS on SPARC
  8.  *
  9.  * Revision 1.2  90/06/12  16:53:52  grosch
  10.  * renamed main program to lalr, added { } for actions, layout improvements
  11.  * 
  12.  * Revision 1.1     89/05/02  14:35:09  vielsack
  13.  * new option: -v (verbose)
  14.  * NoTrace is used instead of NoDebug
  15.  * 
  16.  * Revision 1.0     88/10/04  14:36:03  vielsack
  17.  * Initial revision
  18.  * 
  19.  *)
  20.  
  21. DEFINITION MODULE Debug;
  22.  
  23. FROM IO IMPORT tFile;
  24. FROM Sets IMPORT tSet;
  25. FROM Automaton IMPORT tItemIndex, tStateIndex;
  26. FROM TokenTab IMPORT Terminal;
  27.  
  28. TYPE tConflict = (ShRed, RedRed, ShRedRed);
  29.  
  30. VAR
  31.   NoTrace : BOOLEAN;
  32.   dFile : tFile;
  33.  
  34. PROCEDURE DebugHead    (State: tStateIndex);
  35. PROCEDURE DebugState    (State: tStateIndex; VAR Set: tSet);
  36. PROCEDURE DebugEnd;
  37.     
  38. (* Erzeuge Zusatzinformation zum Zustand 'State' mit Konfliktmenge 'Set' *)
  39.  
  40. PROCEDURE InformIgnored (Item: tItemIndex; t: Terminal);
  41. PROCEDURE InformLowPri    (Item: tItemIndex; t: Terminal);
  42. PROCEDURE InformLeftAss (Item: tItemIndex; t: Terminal);
  43. PROCEDURE InformRightAss(Item: tItemIndex; t: Terminal);
  44. PROCEDURE InformKept    (Item: tItemIndex; t: Terminal);
  45. PROCEDURE InformConflict(kind: tConflict);
  46. PROCEDURE NewLine;
  47.  
  48. END Debug.
  49.